www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Label\custom_Label\公用函数include及论坛博客等标签库\nd_include_guolv_zhua.asp

    <%'$start_ext_newDsoft 以下系统生成,勿删!
'$newDsoft_label_type$:asp_label$end_newDsoft_label_type$
'$newDsoft_label_name$:nd_include_guolv_zhua$end_newDsoft_label_name$
'$newDsoft_label_sql$: $end_newDsoft_label_sql$
'$newDsoft_label_params$:$end_newDsoft_label_params$
'$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$
'$newDsoft_label_beizhu$:include脏话过滤,按基本设置里设置的过滤列表来过滤脏话$end_newDsoft_label_beizhu$
'$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$
'$newDsoft_other_params$:htmledxa:1|htmledxb:$end_newDsoft_other_params$
'$end_ext_newDsoft%>



<%

function guolv_zhua(contt)


biao2="[ND_sys]"

set rs22wwww=server.CreateObject("adodb.recordset")
rs22wwww.open "select top 1 * from "&biao2&" where type='config_settings'",newdsoft_conn_obj,1,1

ddd1=rs22wwww("data")
dddd12=split(ddd1,"|")
unsss=dddd12(18)
rs22wwww.close
set rs22wwww=nothing

if trim(unsss)<>"" and contt<>"" then
unregt=split(trim(unsss),",")
for ithi=0 to ubound(unregt)

contt=replace(contt,trim(unregt(ithi)),"-*****自动过滤的非法字符*****-",1,-1,1)

next
end if
guolv_zhua=contt
end function
%>